100 POKE53280,6:POKE53281,.:PRINT"[147]"
105 Z$="":INPUT" WELCHE ZAHL UMRECHNEN ";Z$
106 IFZ$=""THENEND
110 Z=VAL(Z$):PRINT"  =  ";
120 B=Z
130 IFB<=3000THEN200
140 PRINT"ZU GROSS":GOTO105
200 GOTO500
210 B=INT(Z/F)
220 IFB<>0THENGOSUB1000
230 Z=Z-B*F
240 RETURN
500 F=1000:A$="M":GOSUB 210
510 F=900: A$="CM":GOSUB 210
520 F=500: A$="D":GOSUB 210
530 F=400: A$="CD":GOSUB 210
540 F=100: A$="C":GOSUB 210
550 F=90: A$="XC":GOSUB 210
560 F=50: A$="L":GOSUB 210
570 F=40: A$="XL":GOSUB 210
580 F=10: A$="X":GOSUB 210
590 F=9: A$="IX":GOSUB 210
600 F=5: A$="V":GOSUB 210
610 F=4: A$="IV":GOSUB 210
620 F=1: A$="I":GOSUB 210
630 POKE198,0:WAIT198,1:POKE198,0:GOTO100
1000 FORI=1TOB
1010 PRINT A$;
1020 NEXT I: RETURN